home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / telecomm / 295 / uniterm.20d / example2.mac < prev    next >
Text File  |  1989-06-13  |  711b  |  28 lines
  1. #####################################
  2. # Test Macro for UniTerm V2.0c 002  #
  3. # Copyright 1988 Simon Poole        #
  4. #                                   #
  5. #####################################
  6. :1
  7. # get a line of input
  8. if(!input('Please enter a single number:')) exit(0)
  9. # get the integer and set integer variable one to it's value
  10. set(1,.$T)
  11. # a simple loop
  12. :2
  13. #  write the number to the screen
  14. #  this is pretty slow since DW/DH chars are rather slow
  15. #
  16. #  top half
  17.    echo('\r\n\033#3')
  18.    echo("@1)
  19. #  bottom half
  20.    echo('\r\n\033#4')
  21.    echo("@1)
  22. # decrement the counter
  23.    set(1,add(@1,-1))
  24. if(@1) jump(2)
  25. # back to the beginning again
  26. jump(1)
  27. #####################################
  28.